home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / directory editor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  7.4 KB  |  279 lines
  1. 1 a$="":iffl=0thengosub60000
  2. 3 goto50:rem"[141][147]           software by bull[141]
  3. 7 [128]:[143]"
  4. 10 :      directory editor
  5. 11 :
  6. 15 :             by
  7. 19 :          dick bull                            738 pueblo ave
  8. 23 :       napa, ca. 94558
  9. 27 :
  10. 32 rem"[141]     'list 50 -'  to see program[141]"(NULL)
  11. 50 iffl=0thenfl=1:load"input 30.o",8,1
  12. 52 a$="":poke53281,1:print"[147][144]";chr$(14)
  13. 55 print"           [196]irectory edit[146]"
  14. 60 print"  [212]his program will do the following:
  15. 65 [153]"  1:wait (NULL)(NULL)(NULL)valclosedirectory listings
  16. 70 print"  2:[146] [205]ake a place in the directory"
  17. 75 print"     where ever you want, so that the        next";
  18. 80 print" saved file will appear there"
  19. 85 print"  3:[146] [205]ake a mark (------------)"
  20. 90 print"     [each will be different -- 45 max]
  21. 95 [153]"     any place in the directory"
  22. 100 [153]"  4:wait (NULL)len(NULL)atn(NULL)lenleft$ and (NULL)val(NULL)atn(NULL)val files
  23. 105 print"     [rename that mystery file]
  24. 110 [153]"     [scratch '' or',' etc.]
  25. 115 print"  5:[146] [204][207][195][203]/ [213][206][204][207][195][203] files;
  26. 120 [153]"     locked files can't be scratched.        and are printed reversed
  27. 125 print"     selected locked files will be           unlocked. ";
  28. 130 print"selected unlocked files       will be locked
  29. 135 :
  30. 140 [134]b(18),f$(144):[151]198,0
  31. 145 z$[178]""
  32. 150 b(1)[178]1:b(2)[178]4:b(3)[178]7:b(4)[178]10:b(5)[178]13:b(6)[178]16:b(7)[178]2:b(8)[178]5:b(9)[178]8:b(10)[178]11
  33. 155 b(11)[178]14:b(12)[178]17:b(13)[178]3:b(14)[178]6:b(15)[178]9:b(16)[178]12:b(17)[178]15:b(18)[178]18
  34. 160 [153],"  press a key":[141]1245
  35. 165 [153]"load(NULL)hen you are finished it will rewrite   the directory on the disk.
  36. 170 print"[214]alidate[146] the disk if desired. [196]o not useon disks with random files
  37. 175 [153]"(NULL)oft-write protectwait the disk if selected will act like the write ";
  38. 180 [153]"protect tab on adisk. right$t works by giving a dos mismatch
  39. 185 print"error on attempting to write to the disk
  40. 190 [153]"peekoth hard and soft write protected disks";
  41. 195 [153]"will be checked for at the start of the program and removed if desired.
  42. 200 print"[208]lace the disk to edit in the drive and "
  43. 202 print"            press a key."
  44. 205 gosub1245
  45. 210 printchr$(142)"[147]";
  46. 215 open1,8,15:print#1,"i"
  47. 220 open2,8,2,"#":gosub790
  48. 225 open3,8,3,"0:tz,u,w":gosub790
  49. 230 ifer<>0thenclose2:close3:close1:goto210
  50. 235 close3:print#1,"s0:tz"
  51. 240 n=1:z=1:t=18:s=1:hi$="":k=1
  52. 245 fori=1to11:hi$=hi$+chr$(0):next
  53. 250 k$=chr$(131)+chr$(18)+chr$(0):da$="----------------"+hi$:fi$=" "
  54. 255 print"reading files. please wait
  55. 260 [152]1,"u1 2 0";t;s
  56. 265 [161]#2,t$,s$
  57. 270 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
  58. 275 [139]t[177]0[167]z[178]z[170]1
  59. 280 bp[178]2
  60. 285 [129]i[178]1[164]8:[153]""z;i
  61. 290 [152]1,"b-p 2";bp
  62. 295 [158]828,2:[139]bp[179]226[167]bp[178]bp[170]32
  63. 300 [139][198]([200](a$,1))[179][177]0[167]f$(n)[178]a$:n[178]n[170]1:[130]
  64. 305 [139][198]([200](a$,1))[178]0[167][130]
  65. 310 [139]t[179][177]0[167][137]260
  66. 315 za[178]z:na[178]n
  67. 320 [129]r[178]1[164]n:[139][202](f$(r),4,1)[179][177]"-"[167]332
  68. 325 [139][202](f$(r),5,1)[178]"-"[176][202](f$(r),6,1)[178]"-"[167]da[178]da[170]1
  69. 332 [130]r
  70. 335 :
  71. 340 [143] directory listing
  72. 345 :
  73. 350 [153]"load           directory editwait"
  74. 355 [129]i[178]k[164]k[170]17
  75. 360 [139]i[177]n[171]1[167]380
  76. 365 [139][198](f$(i))[175]64[167][153]"";
  77. 370 i$[178][196](i):i$[178][201]([196](i),[195](i$)[171]1)[170]" "
  78. 375 [153]"stop"i$;:[151]212,128:[153][202](f$(i),4,16):[151]212,0
  79. 380 [139]i[170]18[177]n[171]1[167]395
  80. 385 [139][198](f$(i[170]18)) [175]64[167][153]"";
  81. 390 [153][163]19)"onstop";i[170]18;"stop";:[151]212,128:[153][202](f$(i[170]18),4,16):[151]212,0
  82. 395 [130]:[151]212,0
  83. 400 [153]z$"f1wait insert space     f2wait remove spaces
  84. 405 print"f3[146] move entries     f4[146] lock/unlock
  85. 410 [153]"f5wait add -------wait      _wait  write or exit
  86. 415 print"f7[146] rename file      f8[146] delete files
  87. 420 [153]"crsr up/downwait page if listing >36 ";
  88. 425 [153][199](142);
  89. 430 [141]1245
  90. 435 [139]a$[178]"_"[167]690
  91. 440 [129]t[178]1[164]9:[139][202]("inputgotodimrunreadletrestoreon",t,1)[178]a$[167]450
  92. 445 [130]:[137]425
  93. 450 [145]t[141]490,665,535,915,605,855,740,455,465 :[137]350
  94. 455 k[178]k[171]10:[139]k[178][179]0[167]k[178]1:[143] csr-up
  95. 460 [142]
  96. 465 [139]k[170]34[179]n[167]k[178]k[170]10:[143] crsr-down
  97. 470 [142]
  98. 475 :
  99. 480 :[143] insert empty file
  100. 485 :
  101. 490 q$[178]" space above":[141]945
  102. 495 [139]a[178][179]0[167][142]
  103. 500 [129]i[178]n[164]a[170]1[169][171]1
  104. 505 f$(i)[178]f$(i[171]1):[130]:n[178]n[170]1:f$(a)[178]""
  105. 510 [129]i[178]1[164]30:f$(a)[178]f$(a)[170][199](0):[130]
  106. 515 [142]
  107. 520 :
  108. 525 :[143] move entries
  109. 530 :
  110. 535 q$[178]" move":[141]945
  111. 540 [139]a[178][179]0[167][142]
  112. 545 [139]a[177]n[171]1[167]535
  113. 550 b[178]0:[153]z$;:[133]" above which file   ";b
  114. 555 [139]b[178][179]0[167]585
  115. 560 [139]b[177]n[167]550
  116. 565 [139]a[178]b[167]585
  117. 570 fh$[178]f$(a)
  118. 575 [139]a[177]b[167] [129] i[178]a [164] b[170]1 [169][171]1:f$(i)[178]f$(i[171]1):[130]:f$(b)[178]fh$
  119. 580 [139]b[177]a[167] [129] i[178]a [164] b[171]1 :f$(i)[178]f$(i[170]1):[130]:f$(b[171]1)[178]fh$
  120. 585 [142]
  121. 590 :
  122. 595 [143] add dashes
  123. 600 :
  124. 605 q$[178]" dashes above":[141]945
  125. 610 [139]a[178][179]0[167][142]
  126. 615 [129]i[178]n[164]a[170]1[169][171]1
  127. 620 f$(i)[178]f$(i[171]1):[130]:n[178]n[170]1:da[178]da[170]1
  128. 625 f$(a)[178]k$[170][200](da$,da)[170]fi$[170][202](da$,da[170]1,15[171]da)[170]hi$:[143] right$ wont work
  129. 630 [139]da[177]14[175]fi$[178]" "[167]fi$[178]"=":da[178]0
  130. 635 [139]da[177]14[175]fi$[178]"="[167]fi$[178]"+":da[178]0
  131. 640 [139]da[177]14[167]da[178]0
  132. 645 [142]
  133. 650 :
  134. 655 :[143] remove empty files
  135. 660 :
  136. 665 [129]i[178]1[164]n[171]1:[139]([198]([200](f$(i),1)))[178]0[167][137]680
  137. 670 [130]
  138. 675 [142]
  139. 680 [129]r[178]i[164]n[171]1:f$(r)[178]f$(r[170]1):[130]:n[178]n[171]1:[137]665
  140. 685 :
  141. 690 [153]"load   ready to write new directory...
  142. 695 print"     1 to return to editing"
  143. 700 print"     2 to rewrite directory"
  144. 705 print"     0 to end without changing                 old directory
  145. 710 [153]"            press key
  146. 715 gosub1245:a=val(a$):ifa<0ora>2then715
  147. 720 ona+1goto1215,350,965:goto715
  148. 725 :
  149. 730 rem delete entry
  150. 735 :
  151. 740 q$=" delete":gosub945
  152. 745 ifa=<0thenreturn
  153. 750 ifasc(f$(a))and64thenprint"[145]  locked file        ":gosub1245:goto785
  154. 755 print"[147]delete ";mid$(f$(a),4,16)
  155. 760 print"are you sure y/n":gosub1245
  156. 765 ifa$<>"y"anda$<>"[217]"then785
  157. 770 print#1,"s0:"mid$(f$(a),4,16):print"working
  158. 775 [141]790:[139]er[177]1 [167] [137]785
  159. 780 [129]r[178]a[164]n[171]1:f$(r)[178]f$(r[170]1):[130]:n[178]n[171]1
  160. 785 [142]
  161. 790 [132]1,er,er$,et,es:[139]er[178]0[167]805
  162. 795 [153]""er;er$;et;es:[139]er[178]73 [167]810 
  163. 800 [153],"press any key to cont":[141]1245
  164. 805 [142]
  165. 810 [153]"disk is software locked":[133]"do you want to unlock it";a$
  166. 815 [139]a$[178]"y"[167] [141]1265:[137]805
  167. 820 [139]a$[179][177]"n"[167]810
  168. 825 [153]"loadthis program is used to rewrite the     directory.
  169. 830 print"write protection must be removed for it to work correctly.
  170. 835 [153]"check disk and rerun the program"
  171. 840 [160]2:[160]1:[128]
  172. 845 :
  173. 850 [143] [210][197][206][193][205][197]
  174. 855 q$[178]" rename":[141]945
  175. 860 [139]a[178][179]0[167]895
  176. 865 [153]"loadrename ";[202](f$(a),4,16)
  177. 870 a$[178]"":[133]"new name";a$:[139]a$[178]""[167]895
  178. 875 [139][195](a$)[177]16[167][153]"too long":[137]870
  179. 880 a$[178][200](a$[170]"closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclose",16)
  180. 885 f$(a)[178][200](f$(a),3)[170]a$[170][202](f$(a),20,11)
  181. 890 [153][195](f$(a))
  182. 895 [142]
  183. 900 :
  184. 905 [143] lock/unlock
  185. 910 :
  186. 915 q$[178]" lock/unlock":[141]945
  187. 920 [139]a[178][179]0[167]955
  188. 925 b[178][198]([200](f$(a),1)):[139]b[175]64[167]b[178]b[175]191:[137]935
  189. 930 b[178]b[176]64
  190. 935 f$(a)[178][199](b)[170][202](f$(a),2,29)
  191. 940 [142]
  192. 945 a[178]0:[153]""z$;q$;" which filestop";:[133]a
  193. 950 [139]a[177]n[167]945
  194. 955 [142]
  195. 960 :
  196. 965 [153]"on         writing new directory
  197. 970 print"please do not remove disk until red"
  198. 975 print"light is out. thank you
  199. 980 [137]985
  200. 985 a$[178]""
  201. 990 [129]i[178]1[164]30:a$[178]a$[170][199](0):[130]:n[178]n[171]1:na[178]na[171]1
  202. 995 zn[178][181](n[173]8):[139]n[173]8[177]zn[167]zn[178]zn[170]1
  203. 1000 [139]zn[178]za[167][137]1015
  204. 1005 [139]zn[177]za[167][129]i[178]za[170]1[164]zn:[152]1,"b-a 0";18;b(i):[130]
  205. 1010 [139]zn[179]za[167][129]i[178]zn[170]1[164]za:[152]1,"b-f 0";18;b(i):[130]
  206. 1015 nz[178]0:bp[178]0:k[178]0:zb[178]1
  207. 1020 [139]zb[178]zn[167]c$[178][199](0):b$[178][199](255):[137]1030
  208. 1025 c$[178][199](18):b$[178][199](b(zb[170]1))
  209. 1030 [152]1,"b-p";2;bp:[152]2,c$;b$;
  210. 1035 bp[178]2
  211. 1040 nz[178]nz[170]1:k[178]k[170]1
  212. 1045 [152]1,"b-p";2;bp
  213. 1050 [152]2,f$(nz);
  214. 1055 [139]k[178]8[176]nz[178]n[167]1065
  215. 1060 bp[178]bp[170]32:[137]1040
  216. 1065 [139]k[178]8[167]1085
  217. 1070 bp[178]bp[170]32:[152]1,"b-p";2;bp
  218. 1075 [152]2,a$;
  219. 1080 k[178]k[170]1:[139]k[179]8[167]1070
  220. 1085 [152]1,"u2:2 0";18;b(zb)
  221. 1090 [139]nz[178]n[167]1100
  222. 1095 zb[178]zb[170]1:k[178]0:bp[178]0:[137]1020
  223. 1100 [139]za[178][179]zn[167][137]1130
  224. 1105 [129]i[178]zn[170]1[164]za
  225. 1110 [152]1,"b-p";2;0:[152]2,[199](75);
  226. 1115 [129]q[178]1[164]255:[152]2,[199](1);:[130]q
  227. 1120 [152]1,"u2:2 0";18;b(i)
  228. 1125 [130]i
  229. 1130 [141]790
  230. 1135 [139]er[179][177]0[167]f[178]1:[137]350
  231. 1140 [153]"directory has been rewritten
  232. 1145 poke198,0:input"do you want to validate the disk";a$
  233. 1150 ifleft$(a$,1)<>"y"andleft$(a$,1)<>"[217]"then1180
  234. 1155 print,"working
  235. 1160 [152]1,"v0:":[141]790
  236. 1165 :
  237. 1170 [143] software lock
  238. 1175 :
  239. 1180 [153]"do you want to software protect the disk":[133]"  ncmdcmdcmd";a$
  240. 1185 [139]a$[178]"n"[167]1215 
  241. 1190 [139]a$[179][177]"y"[167]1180
  242. 1195 [152]1,"u1:";2;0;18;0:[141]790
  243. 1200 [152]1,"b-p";2;2
  244. 1205 [152]2,[199](1):[141]790
  245. 1210 [152]1,"u2:";2;0;18;0
  246. 1215 [153]"loadare you finished with this program";:[133]a$
  247. 1220 [152]1,"i0":[160]1:[160]2
  248. 1225 [139]a$[179][177]"y"[167][153]"load":[156]:[137]52
  249. 1230 [137]1340
  250. 1235 :
  251. 1240 :
  252. 1245 [151]198,0:[146]198,1:[161]a$:[142]
  253. 1250 :
  254. 1255 [143] unlock disk
  255. 1260 :
  256. 1265 [152]1,"u1:";2;0;18;0:[141]790
  257. 1270 [152]1,"b-p:";2;2
  258. 1275 [152]2,[199](65);:[141]790
  259. 1280 [152]1,"m-w";[199](1);[199](1);[199](1);[199](65)
  260. 1285 [152]1,"m-w";[199](2);[199](7);[199](1);[199](65)
  261. 1290 [152]1,"u2:";2;0;18;0:[141]790
  262. 1295 [142]
  263. 1340 [160]3:[160]2:[160]1
  264. 1342 [153]"loadload";[199](34);"payload";[199](34);",8"
  265. 1345 [153]"run
  266. 1350 poke631,13:poke632,13:poke198,2:end
  267. 60000 t$="                         ":c=0:c$="":print"[147]":poke53281,0
  268. 60030 printspc(7)""t$:printspc(7)"     [196]irectory [197]ditor    [146]"
  269. 60051 printspc(7)""t$:print:printtab(18)"by"
  270. 60060 print:printspc(14)"[196]ick [194]ull"
  271. 60070 print:printspc(12)"[195]opyright 1985"
  272. 60080 print:print:print:print"     [204][207][193][196][211][212][193][210] is not public domain."
  273. 60090 print:print"  [208]lease respect the author's rights."
  274. 60100 print:print"      [208]ress space bar to continue."
  275. 60110 forcc=1to48:getk$:ifk$=" "then60130
  276. 60120 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  277. 60125 next:goto60100
  278. 60130 printc$:return
  279.